home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #18 (Mar 87) / Printer LSP sources / SetUpMenusStuff < prev    next >
Text File  |  1987-02-13  |  829b  |  41 lines
  1. UNIT SetupMenus;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         MacPrint, MyGlobals, Windows;
  7.  
  8.     PROCEDURE SetUpMenus;
  9.     PROCEDURE SetUpWindow;
  10.  
  11. IMPLEMENTATION
  12.  
  13. { These routines used only once then segment dumped }
  14.  
  15.     PROCEDURE SetUpMenus;
  16.         VAR
  17.             counter : INTEGER;
  18.     BEGIN
  19.         FOR counter := 1 TO lastMenu DO
  20.             myMenus[counter] := GetMenu(counter);
  21.         AddResMenu(myMenus[1], 'DRVR'); {desk accessories }
  22.         FOR counter := 1 TO lastMenu DO
  23.             InsertMenu(myMenus[counter], 0);
  24.         DrawMenuBar;
  25.     END; {SetUpMenus}
  26.  
  27.     PROCEDURE SetUpWindow;
  28.         VAR
  29.             r : Rect;
  30.     BEGIN
  31.         dragRect := screenbits.bounds;
  32.         dragRect.top := dragRect.top + 20; {leave room for menu bar}
  33.         InsetRect(dragRect, 4, 4); {leave some of dragged rectangle on screen}
  34.         doneFlag := FALSE;
  35.         printFlag := FALSE;
  36.  
  37.         currWMode := nullMode;
  38.         OpenAWindow; {WindowStuff routine}
  39.     END; {SetUpWindow}
  40.  
  41. END.